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-- BcdUtilDefs.Mesa Edited by Johnsson on April 12, 1978 4:30 PM 

DIRECTORY 

BcdDefs: FROM "bcddefs", 
BcdTabDefs: FROM "bcdtabdef s" . 
BcdTreeDefs: FROM "bcdtreedef s" . 
StringDefs: FROM "stringdef s", 
TableDefs: FROM "tabledefs"; 

DEFINITIONS FROM BcdDefs; 

BcdUtilDefs: DEFINITIONS ■ 
BEGIN 

HTIndex: TYPE - BcdTabDefs. HTIndex; 

BcdBases: TYPE - RECORD [ 

etb, mtb, ctb, itb, sgb, ftb, ntb: TableDefs. TableBase. 
ssb: POINTER TO BcdDefs. PackedString]; 

BcdBasePtr: TYPE - POINTER TO BcdBases; 

RECORD [ 


BcdLimits: TYPE » 

ft: 

FTIndex. 

ct: 

CTIndex, 

mt: 

MTIndex, 

et: 

EXPIndex, 

it: 

IMPIndex. 

sg: 

SGIndex, 

nt: 

NTIndexj; 

BcdLimitPtr: TYPE 


POINTER TO BcdLimits; 

EnterName: PROCEDURE [ss: StringDefs .Substring] RETURNS [NameRecord]; 
MapName: PROCEDURE [bed: BcdBasePtr, n: NameRecord] RETURNS [NameRecord]; 
HtiForName: PROCEDURE [bed: BcdBasePtr, n: NameRecord] RETURNS [HTIndex]; 
NameForHti: PROCEDURE [hti : BcdTabDefs .HTIndex] RETURNS [NameRecord]; 
NameForSti: PROCEDURE [sti: BcdTabDefs .STIndex] RETURNS [NameRecord]; 
ContextForTree: PROCEDURE [t: BcdTreeDefs . TreeLink] 

RETURNS [BcdTabDefs, CXIndex]; 
CopyTreeContext: PROCEDURE [t: BcdTreeDefs. TreeLink] 

RETURNS [BcdTabDefs. CXIndex]; 
EquivalentVersions: PROCEDURE [vl, v2: POINTER TO BcdDefs. VersionStamp] 

RETURNS [BOOLEAN]; 
MergeFile: PROCEDURE [bed: BcdBasePtr, oldfti: FTIndex] 

RETURNS [fti: FTIndex]; 
EnterFile: PROCEDURE [name: STRING] 

RETURNS [fti: FTIndex]; 
SetFileVersion: PROCEDURE [fti: FTIndex, v: BcdDefs .VersionStamp]; 
GftOverflow: SIGNAL; 

GetGfi: PROCEDURE [n: CARDINAL] RETURNS [gfi: GFTIndex]; 
GetDummyGfi: PROCEDURE [n: CARDINAL] RETURNS [gfi: CARDINAL]; 
NewContext: PROCEDURE RETURNS [cxi: BcdTabDefs .CXIndex]; 
NewSemanticEntry: PROCEDURE [hti: HTIndex] 

RETURNS [sti: BcdTabDefs .STIndex] ; 
EnterModule: PROCEDURE [bed: BcdBasePtr, oldmti: MTIndex, name: HTIndex] 

RETURNS [mti: MTIndex]; 
EnterSegment: PROCEDURE [seg: SGRecord] 

RETURNS [sgi: SGIndex]; 
Enterlmport: PROCEDURE [bed: BcdBasePtr, olditi: IMPIndex, name: HTIndex] 

RETURNS [iti: IMPIndex]; 
EnterExport: PROCEDURE [bed: BcdBasePtr, oldeti: EXPIndex, name: HTIndex] 

RETURNS [eti: EXPIndex]; 
EnterConfig: PROCEDURE [bed: BcdBasePtr, oldeti: CTIndex. name: HTIndex] 

RETURNS [cti: CTIndex]; 
CreatelnstanceName: PROCEDURE [hti: HTIndex, item: Namee]; 

-- timing procedures 

TimeNow: PROCEDURE RETURNS [CARDINAL]; 

TimeSince: PROCEDURE [start: CARDINAL] RETURNS [CARDINAL]; 

-- Administrative Procedures 

InitUtilities: PROCEDURE; 
EraseUtilities: PROCEDURE; 

END. 


